0,50 s

1

2

3

4

5

6

7

8

9

0

3

5

Vektoren der Kreisbewegung

Version Stand
09.10.2020
Andreas Jäger

Stand

t: 0.5
r: 0.55
c = Circle((0, 0), r)
w: 0.75
Pr: (r * (cos((w * t)), sin((w * t))))
vr = Vector((0, 0), Pr)
Pv: ((r * w) * ((-sin((w * t))), cos((w * t))))
vv1 = Vector((0, 0), Pv)
vv2 = Vector(Pr, Pr + vv1)
Pa: ((r * w^(2)) * ((-cos((w * t))), (-sin((w * t)))))
va1 = Vector((0, 0), Pa)
va2 = Vector(Pr, Pr + va1)
Pry: (0, y(Pr))
Pvy: (0, y(Pv))
Pay: (0, y(Pa))
vry = Vector((0, 0), Pry)
vvy = Vector((0, 0), Pvy)
vay = Vector((0, 0), Pay)
bbb: 0
tt: t / 10
Ptay: (tt, y(Pa))
Ptry: (tt, y(Pr))
Ptvy: (tt, y(Pv))
fyr(x) = If[x ≥ 0 ∧ (10 * x) ≤ t, (r * sin(((w * 10) * x)))]
fyv(x) = If[x ≥ 0 ∧ (10 * x) ≤ t, ((r * w) * cos(((w * 10) * x)))]
fya(x) = If[x ≥ 0 ∧ (10 * x) ≤ t, (((-r) * w^(2)) * sin(((w * 10) * x)))]
ffya(x) = If[x ≥ 0, (((-r) * w^(2)) * sin(((w * 10) * x)))]
ffyr(x) = If[x ≥ 0, (r * sin(((w * 10) * x)))]
ffyv(x) = If[x ≥ 0, ((r * w) * cos(((w * 10) * x)))]
a = false
f = Segment(Pr, Pry)
Prx: (x(Pr), 0)
g = Segment(Pr, Prx)
α = Angle(Prx, (0, 0), Pr)